m15 ex2

library(plotly)

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 3.2.5

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

#Create data
Classes <- c('INFO 201', 'INFO 380', 'INFO 340', 'INFO 445')
AvgGPA <- c(3.8, 3.7, 3.6, 3.5)
NumStudents <- c(120, 40, 60, 20)
data <- data.frame(Classes, AvgGPA, NumStudents)

#Using plotly to plot data
plot_ly(data, x= ~AvgGPA, y = ~NumStudents, type = 'surface',
        mode = 'text', text = ~Classes, textposition = 'center', 
        textfront = list(color = '#000000', size = 14)) %>%
  layout(title = 'Classes Average GPA and Class Size',
    xaxis = list(title = 'Average GPA', 
                 zeroline = TRUE, 
                 range = c(0, 7)), 
    yaxis = list(title = 'Number of Students in Class',                  
                 range = c(0,500)))

## Warning: replacing previous import by 'shiny::includeHTML' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::code' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeScript' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeMarkdown' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::is.singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::withTags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::img' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendAttributes' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag.list'
## when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.html' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChild' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeCSS' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::br' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::span' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::a' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagList' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::strong' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tag' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::p' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::validateCssUnit' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::HTML' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::h1' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h2' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h3' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h4' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h5' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h6' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChildren' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::em' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::div' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::pre' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::htmlTemplate' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::suppressDependencies' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagSetChildren' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeText' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::hr' when loading 'crosstalk'

## Warning: 'surface' objects don't have these attributes: 'mode', 'textposition', 'textfront'
## Valid attributes include:
## 'type', 'visible', 'showlegend', 'legendgroup', 'opacity', 'name', 'uid', 'hoverinfo', 'stream', 'z', 'x', 'y', 'text', 'surfacecolor', 'cauto', 'cmin', 'cmax', 'colorscale', 'autocolorscale', 'reversescale', 'showscale', 'colorbar', 'contours', 'hidesurface', 'lightposition', 'lighting', '_deprecated', 'scene', 'xcalendar', 'ycalendar', 'zcalendar', 'zsrc', 'xsrc', 'ysrc', 'textsrc', 'surfacecolorsrc', 'key', 'set', 'frame', 'transforms', '_isNestedKey', '_isSimpleKey'